﻿Public Class ScriptManager
    Inherits SingletonObject(Of ScriptManager)
    Private Executer As Action(Of String) = Sub(M) Debug.Print(M)
    Public Sub SetExecuter(Executer As Action(Of String))
        Me.Executer = Executer
    End Sub
    Public Sub ReportSendEmail(Json As String)
        Executer($"VUE.exe.Test({Json});")
    End Sub

    Public Sub LogSendEmail(Json As String)
        Executer($"VUE.exe.LogSendEmail({Json});")
    End Sub


    Public Sub VerifyEmail(json As String)
        Executer($"VUE.exe.VerifyEmail({json});")
    End Sub

    Public Sub VerifyEmailLog(json As String)
        Executer($"VUE.exe.VerifyEmailLog({json});")
    End Sub

    Public Sub RefreshCLientUI()
        Executer("VUE.exe.importCallBack() ")
    End Sub

    Public Sub GetMerchantsResult(json As String)
        Executer($"VUE.exe.GetMerchantsResult({json});")
    End Sub
End Class
